(Fprin1_to_string): Return unibyte string if possible.

diff --git a/src/print.c b/src/print.c
index 151a193076d62d945ab52b8b5de7edbf475dc57e..38e82488b3c2230c98c6682ba8cedd13627d8cb4 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -775,6 +775,8 @@ A printed representation of an object is text which describes that object.  */)
   PRINTFINISH;
   set_buffer_internal (XBUFFER (Vprin1_to_string_buffer));
   object = Fbuffer_string ();
+  if (SBYTES (object) == SCHARS (object))
+    STRING_SET_UNIBYTE (object);
 
   Ferase_buffer ();
   set_buffer_internal (old);